home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Singing Fun! / Sunday Savers: Singing Fun!.iso / mac / Xtras / Buddy API 1.6 / Buddy API Docs.swf / texts / 1564.txt < prev    next >
Encoding:
Text File  |  2004-08-31  |  3.9 KB  |  175 lines
  1. 144
  2. --- RECORDSEPARATOR ---
  3.  
  4. --- RECORDSEPARATOR ---
  5. FindFirstFile 
  6. --- RECORDSEPARATOR ---
  7. Platform:
  8. --- RECORDSEPARATOR ---
  9.  
  10. --- RECORDSEPARATOR ---
  11. Windows and Macintosh
  12. --- RECORDSEPARATOR ---
  13.  
  14. --- RECORDSEPARATOR ---
  15. Description:
  16. --- RECORDSEPARATOR ---
  17.  
  18. --- RECORDSEPARATOR ---
  19. baFindFirstFile searches for the first file matching a specification.
  20. --- RECORDSEPARATOR ---
  21.  
  22. --- RECORDSEPARATOR ---
  23. Usage:
  24. --- RECORDSEPARATOR ---
  25.  
  26. --- RECORDSEPARATOR ---
  27. Result = baFindFirstFile( StartDir, FileSpec )
  28. --- RECORDSEPARATOR ---
  29.  
  30. --- RECORDSEPARATOR ---
  31. A
  32. --- RECORDSEPARATOR ---
  33. rguments:
  34. --- RECORDSEPARATOR ---
  35.  
  36. --- RECORDSEPARATOR ---
  37. String, string. 
  38. --- RECORDSEPARATOR ---
  39. StartDir is the directory to start searching in. 
  40. --- RECORDSEPARATOR ---
  41. FileSpec is the pattern to search for.
  42. --- RECORDSEPARATOR ---
  43.  
  44. --- RECORDSEPARATOR ---
  45. Returns:
  46. --- RECORDSEPARATOR ---
  47.  
  48. --- RECORDSEPARATOR ---
  49. String 
  50. --- RECORDSEPARATOR ---
  51. Returns the full path to the first file found
  52. --- RECORDSEPARATOR ---
  53.  
  54. --- RECORDSEPARATOR ---
  55. Examples:
  56. --- RECORDSEPARATOR ---
  57.  
  58. --- RECORDSEPARATOR ---
  59. Director: 
  60. --- RECORDSEPARATOR ---
  61. set file = baFindFirstFile( "c:\", "netscape.exe" ) 
  62. --- RECORDSEPARATOR ---
  63. -- searches drive c for Netscape 
  64. --- RECORDSEPARATOR ---
  65. Authorware: 
  66. --- RECORDSEPARATOR ---
  67. file := baFindFirstFile( "c:\\windows", "*.ttf" ) 
  68. --- RECORDSEPARATOR ---
  69. -- searches for fonts
  70. --- RECORDSEPARATOR ---
  71.  
  72. --- RECORDSEPARATOR ---
  73. Notes:
  74. --- RECORDSEPARATOR ---
  75.  
  76. --- RECORDSEPARATOR ---
  77. All sub-directories of the starting directory will be included in the search. This 
  78. --- RECORDSEPARATOR ---
  79. function can be used with baFindNextFile to f
  80. --- RECORDSEPARATOR ---
  81. ind all files. On
  82. --- RECORDSEPARATOR ---
  83.  Windows
  84. --- RECORDSEPARATOR ---
  85. , when you 
  86. --- RECORDSEPARATOR ---
  87. are finished finding all the files you are interested in, you must call baFindClose to 
  88. --- RECORDSEPARATOR ---
  89. free memory allocated by baFindFirstFile. This is not necessary - but can be 
  90. --- RECORDSEPARATOR ---
  91. included - on
  92. --- RECORDSEPARATOR ---
  93.  Macintosh
  94. --- RECORDSEPARATOR ---
  95. . 
  96. --- RECORDSEPARATOR ---
  97. Here are examples of searching the C drive for all copies of "netscape.exe"
  98. --- RECORDSEPARATOR ---
  99.  
  100. --- RECORDSEPARATOR ---
  101. Director:
  102. --- RECORDSEPARATOR ---
  103.  
  104. --- RECORDSEPARATOR ---
  105. set fileList = [] 
  106. --- RECORDSEPARATOR ---
  107. -- a list to contain the found files 
  108. --- RECORDSEPARATOR ---
  109. set file = baFindFirstFile( "c:\", "netscape.exe" ) 
  110. --- RECORDSEPARATOR ---
  111. repeat while file <> "" 
  112. --- RECORDSEPARATOR ---
  113. -- loop through all found files and add to the list 
  114. --- RECORDSEPARATOR ---
  115. append( fileList, file ) 
  116. --- RECORDSEPARATOR ---
  117. set file = baFindNextFile() 
  118. --- RECORDSEPARATOR ---
  119. end repeat 
  120. --- RECORDSEPARATOR ---
  121. baFindClose()
  122. --- RECORDSEPARATOR ---
  123.  
  124. --- RECORDSEPARATOR ---
  125. Authorware Xtra:
  126. --- RECORDSEPARATOR ---
  127.  
  128. --- RECORDSEPARATOR ---
  129. fileList := [] 
  130. --- RECORDSEPARATOR ---
  131. -- a list to contain the found files 
  132. --- RECORDSEPARATOR ---
  133. file := baFindFirstFile( "c:\\", "netscape.exe" ) 
  134. --- RECORDSEPARATOR ---
  135. repeat while file <> "" 
  136. --- RECORDSEPARATOR ---
  137. AddLinear( fileList, file ) 
  138. --- RECORDSEPARATOR ---
  139. file := baFindNextFile() 
  140. --- RECORDSEPARATOR ---
  141. end repeat 
  142. --- RECORDSEPARATOR ---
  143. baFindClose()
  144. --- RECORDSEPARATOR ---
  145.  
  146. --- RECORDSEPARATOR ---
  147. Authorware UCD:
  148. --- RECORDSEPARATOR ---
  149.  
  150. --- RECORDSEPARATOR ---
  151. fileList := "" 
  152. --- RECORDSEPARATOR ---
  153. file := baFindFirstFile( "c:\\", "netscape.exe" ) 
  154. --- RECORDSEPARATOR ---
  155. repeat while file <> "" 
  156. --- RECORDSEPARATOR ---
  157. if fileList = "" then 
  158. --- RECORDSEPARATOR ---
  159. -- add names to fileList with returns between file names 
  160. --- RECORDSEPARATOR ---
  161. fileList := file 
  162. --- RECORDSEPARATOR ---
  163. else
  164. --- RECORDSEPARATOR ---
  165. fileList := fileList ^ Return ^ file 
  166. --- RECORDSEPARATOR ---
  167. end if 
  168. --- RECORDSEPARATOR ---
  169. -- get next file 
  170. --- RECORDSEPARATOR ---
  171. file := baFindNextFile() 
  172. --- RECORDSEPARATOR ---
  173. end repeat 
  174. --- RECORDSEPARATOR ---
  175. baFindClose()